home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / mandrake_MDKSA-2003-084.nasl < prev    next >
Encoding:
Text File  |  2005-01-14  |  1.9 KB  |  73 lines
  1. #
  2. # (C) Tenable Network Security
  3. #
  4. # This plugin text was extracted from Mandrake Linux Security Advisory MDKSA-2003:084
  5. #
  6.  
  7.  
  8. if ( ! defined_func("bn_random") ) exit(0);
  9. if(description)
  10. {
  11.  script_id(14066);
  12.  script_bugtraq_id(8231);
  13.  script_version ("$Revision: 1.3 $");
  14.  script_cve_id("CAN-2003-0615");
  15.  
  16.  name["english"] = "MDKSA-2003:084: perl-CGI";
  17.  
  18.  script_name(english:name["english"]);
  19.  
  20.  desc["english"] = "
  21. The remote host is missing the patch for the advisory MDKSA-2003:084 (perl-CGI).
  22.  
  23.  
  24. Eye on Security found a cross-site scripting vulnerability in the start_form()
  25. function in CGI.pm. This vulnerability allows a remote attacker to place a web
  26. script in a URL which feeds into a form's action parameter and allows execution
  27. by the browser as if it was coming from the site.
  28.  
  29.  
  30. Solution : http://www.mandrakesoft.com/security/advisories?name=MDKSA-2003:084
  31. Risk factor : High";
  32.  
  33.  
  34.  
  35.  script_description(english:desc["english"]);
  36.  
  37.  summary["english"] = "Check for the version of the perl-CGI package";
  38.  script_summary(english:summary["english"]);
  39.  
  40.  script_category(ACT_GATHER_INFO);
  41.  
  42.  script_copyright(english:"This script is Copyright (C) 2004 Tenable Network Security");
  43.  family["english"] = "Mandrake Local Security Checks";
  44.  script_family(english:family["english"]);
  45.  
  46.  script_dependencies("ssh_get_info.nasl");
  47.  script_require_keys("Host/Mandrake/rpm-list");
  48.  exit(0);
  49. }
  50.  
  51. include("rpm.inc");
  52. if ( rpm_check( reference:"perl-CGI-3.00-0.1mdk", release:"MDK8.2", yank:"mdk") )
  53. {
  54.  security_hole(0);
  55.  exit(0);
  56. }
  57. if ( rpm_check( reference:"perl-CGI-3.00-0.2mdk", release:"MDK9.0", yank:"mdk") )
  58. {
  59.  security_hole(0);
  60.  exit(0);
  61. }
  62. if ( rpm_check( reference:"perl-CGI-3.00-0.2mdk", release:"MDK9.1", yank:"mdk") )
  63. {
  64.  security_hole(0);
  65.  exit(0);
  66. }
  67. if (rpm_exists(rpm:"perl-CGI-", release:"MDK8.2")
  68.  || rpm_exists(rpm:"perl-CGI-", release:"MDK9.0")
  69.  || rpm_exists(rpm:"perl-CGI-", release:"MDK9.1") )
  70. {
  71.  set_kb_item(name:"CAN-2003-0615", value:TRUE);
  72. }
  73.